home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 94xx / 9403a.d64 / kalender prg. 3 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  361b  |  19 lines
  1. 10 INPUT "JULIANISCHES DATUM ";JD
  2. 20 GOSUB 2000
  3. 30 PRINT "KALENDERDATUM:";T;".";M;".";J
  4. 40 END
  5. 2000 REM JULIANISCH -> KALENDER
  6. 2005 J=INT((4*JD-1)/146097)
  7. 2010 JD=4*JD-1-146097*J
  8. 2020 T=INT(JD/4)
  9. 2030 JD=INT((4*T+3)/1461)
  10. 2040 T=4*T+3-1461*JD
  11. 2050 T=INT((T+4)/4)
  12. 2060 M=INT((5*T-3)/153)
  13. 2070 T=5*T-3-153*M
  14. 2080 T=INT((T+5)/5)
  15. 2090 J=100*J+JD
  16. 2100 IFM<10THENM=INT(M+3):GOTO2120
  17. 2110 M=INT(M-9):J=J+1
  18. 2120 RETURN
  19.